home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO009.dsk / LEE / SLOT.CHECK.bas < prev   
BASIC Source File  |  2012-02-16  |  962b  |  21 lines
  1. 1  REM  PROGRAM:SET DATE AND TIME
  2. 2  REM  TO PRODOS WITHOUT A CLOCK CARD
  3. 3  REM  
  4. 4  REM  FOR PRODOS 1.1.0
  5. 5  REM  WRITTEN BY MICHAEL LEE
  6. 6  REM  1985 03 30
  7. 7  TEXT : CLEAR : HOME : POKE 216,0:D$ =  CHR$(4):
  8. 8  PRINT D$"FRE"
  9. 9  VTAB 2: PRINT "CHECK SLOT ASSIGNMENT"
  10. 300  REM   CHECK SLOT
  11. 310  VTAB 2: HTAB 1: CALL  -868: HTAB 6: PRINT "SLOT ASSIGNMENT"
  12. 320 SL =  PEEK(49049)
  13. 322  IF SL > = 128  THEN SC$(7) = "Z80 CARD ASSUMED":SL = SL -128
  14. 324  IF SL > = 64  THEN SC$(6) = "FLOPPY DRIVE ASSUMED":SL = SL -64
  15. 326  IF SL > = 32  THEN SC$(5) = "HARD DISK DRIVE ASSUMED":SL = SL -32
  16. 328  IF SL > = 16  THEN SC$(4) = "CLOCK/CALENDAR CARD ASSUMED":SL = SL -16
  17. 330  IF SL > = 8  THEN SC$(3) = "80 COL CARD ASSUMED":SL = SL -8
  18. 332  IF SL > = 4  THEN SC$(2) = "MODEM CARD ASSUMED":SL = SL -4
  19. 334  IF SL > = 2  THEN SC$(1) = "PRINTER CARD ASSUMED":SL = SL -2
  20. 336  IF SL = 0  THEN SC$(0) = "RAM CARD ASSUMED":
  21. 342  FOR I = 0 TO 7: VTAB 4 +I: PRINT "SLOT "I" "SC$(I): NEXT